home *** CD-ROM | disk | FTP | other *** search
/ The Guided Tour of Multimedia (Second Edition) / The Guided Tour of Multimedia (Second Edition).iso / trials / qtw111 / inc / qtw.txt < prev   
Text File  |  1993-01-14  |  18KB  |  407 lines
  1.  
  2.  
  3. Rem  ---------------------------------------------------------------------
  4. Rem
  5. Rem  QTW.TXT - QuickTime for Windows Visual Basic Declarations
  6. Rem
  7. Rem            Version 1.0
  8. Rem
  9. Rem            (c) 1988-1992 Apple Computer, Inc. All Rights Reserved.
  10. Rem
  11. Rem  ---------------------------------------------------------------------
  12.  
  13.  
  14.  
  15. Rem  Movie Controller MCDoAction action constants
  16. Rem  --------------------------------------------
  17.  
  18. Global Const mcActionIdle = 1
  19. Global Const mcActionDraw = 2
  20. Global Const mcActionActivate = 3
  21. Global Const mcActionDeactivate = 4
  22. Global Const mcActionKey = 6
  23. Global Const mcActionPlay = 8
  24. Global Const mcActionGoToTime = 12
  25. Global Const mcActionSetVolume = 14
  26. Global Const mcActionGetVolume = 15
  27. Global Const mcActionStep = 18
  28. Global Const mcActionSetLooping = 21
  29. Global Const mcActionGetLooping = 22
  30. Global Const mcActionSetLoopIsPalindrome = 23
  31. Global Const mcActionGetLoopIsPalindrome = 24
  32. Global Const mcActionSetGrowBoxBounds = 25
  33. Global Const mcActionControllerSizeChanged = 26
  34. Global Const mcActionSetSelectionBegin = 29
  35. Global Const mcActionSetSelectionDuration = 30
  36. Global Const mcActionSetKeysEnabled = 32
  37. Global Const mcActionGetKeysEnabled = 33
  38. Global Const mcActionSetPlaySelection = 34
  39. Global Const mcActionGetPlaySelection = 35
  40. Global Const mcActionSetUseBadge = 36
  41. Global Const mcActionGetUseBadge = 37
  42. Global Const mcActionSetFlags = 38
  43. Global Const mcActionGetFlags = 39
  44. Global Const mcActionSetPlayEveryFrame = 40
  45. Global Const mcActionGetPlayEveryFrame = 41
  46. Global Const mcActionGetPlayRate = 42
  47. Global Const mcActionBadgeClick = 44
  48.  
  49.  
  50.  
  51. Rem  Movie Controller MCDoAction, action McActionSetFlags parameter, movie
  52. Rem  controller structure parameter, lfActionFlags
  53. Rem  ---------------------------------------------------------------------
  54.  
  55. Global Const mcFlagSuppressStepButtons = 2
  56. Global Const mcFlagSuppressSpeakerButton = 4
  57. Global Const mcFlagsUseWindowPalette = 8
  58.  
  59.  
  60.  
  61. Rem  Toolbox function NewMovieController and Movie Controller function
  62. Rem  MCPositionController parameter controllerCreationFlags values,
  63. Rem  movie controller structure parameter, lfControllerStateFlags
  64. Rem  -----------------------------------------------------------------
  65.  
  66. Global Const mcTopLeftMovie = 1
  67. Global Const mcScaleMovieToFit = 2
  68. Global Const mcWithBadge = 4
  69. Global Const mcNotVisible = 8
  70.  
  71.  
  72.  
  73. Rem  Movie Controller function MCGetControllerInfo parameter mcInfoFlags
  74. Rem  parameter, movie controller structure parameter, lfControllerInfoFlags
  75. Rem  ----------------------------------------------------------------------
  76.  
  77. Global Const mcInfoHasSound = 32
  78. Global Const mcInfoIsPlaying = 64
  79. Global Const mcInfoIsLooping = 128
  80. Global Const mcInfoIsInPalindrome = 256
  81.  
  82.  
  83.  
  84. Rem  NewMovieFromFile flags
  85. Rem  ----------------------
  86.  
  87. Global Const newMovieActive = 1
  88. Global Const newMovieDontResolveDataRefs = 2
  89. Global Const newMovieDontAskUnresolvedDataRefs = 4
  90. Global Const newMovieDontAutoAlternates = 8
  91.  
  92.  
  93.  
  94. Rem  Flags for SetMoviePlayHints
  95. Rem  ---------------------------
  96.  
  97. Global Const hintsScrubMode = 2
  98. Global Const hintsInterpolateSound = 128
  99.  
  100.  
  101.  
  102. Rem  Visual Basic Error Codes
  103. Rem  ------------------------
  104.  
  105. Global Const ERR_INVALID_MOVIE = 31000
  106.  
  107.  
  108.  
  109. Rem  QuickTime Error codes
  110. Rem  ---------------------
  111.  
  112. Global Const couldNotResolveDataRef = -2000
  113. Global Const badImageDescription = -2001
  114. Global Const badPublicMovieAtom = -2002
  115. Global Const cantFindHandler = -2003
  116. Global Const cantOpenHandler = -2004
  117. Global Const badComponentType = -2005
  118. Global Const noMediaHandler = -2006
  119. Global Const noDataHandler = -2007
  120. Global Const invalidMedia = -2008
  121. Global Const invalidTrack = -2009
  122. Global Const invalidMovie = -2010
  123. Global Const invalidSampleTable = -2011
  124. Global Const invalidDataRef = -2012
  125. Global Const invalidHandler = -2013
  126. Global Const invalidDuration = -2014
  127. Global Const invalidTime = -2015
  128. Global Const cantPutPublicMovieAtom = -2016
  129. Global Const badEditList = -2017
  130. Global Const mediaTypesDontMatch = -2018
  131. Global Const progressProcAborted = -2019
  132. Global Const movieToolboxUninitialized = -2020
  133. Global Const wffileNotFound = -2021
  134. Global Const cantCreateSingleForkFile = -2022
  135. Global Const invalidEditState = -2023
  136. Global Const nonMatchingEditState = -2024
  137. Global Const staleEditState = -2025
  138. Global Const userDataItemNotFound = -2026
  139. Global Const maxSizeToGrowTooSmall = -2027
  140. Global Const badTrackIndex = -2028
  141. Global Const trackIDNotFound = -2029
  142. Global Const trackNotInMovie = -2030
  143. Global Const timeNotInTrack = -2031
  144. Global Const timeNotInMedia = -2032
  145. Global Const badEditIndex = -2033
  146. Global Const internalQuickTimeError = -2034
  147. Global Const cantEnableTrack = -2035
  148. Global Const invalidRect = -2036
  149. Global Const invalidSampleNum = -2037
  150. Global Const invalidChunkNum = -2038
  151. Global Const invalidSampleDescIndex = -2039
  152. Global Const invalidChunkCache = -2040
  153. Global Const invalidSampleDescription = -2041
  154. Global Const dataNotOpenForRead = -2042
  155. Global Const dataNotOpenForWrite = -2043
  156. Global Const dataAlreadyOpenForWrite = -2044
  157. Global Const dataAlreadyClosed = -2045
  158. Global Const endOfDataReached = -2046
  159. Global Const dataNoDataRef = -2047
  160. Global Const noMovieInDataFork = -2048
  161. Global Const invalidDataRefContainer = -2049
  162. Global Const badDataRefIndex = -2050
  163. Global Const noDefaultDataRef = -2051
  164. Global Const couldNotUseAnExistingSample = -2052
  165. Global Const featureUnsupported = -2053
  166. Global Const noVideoTrackInMovie = -2054
  167. Global Const noSoundTrackInMovie = -2055
  168. Global Const soundSupportNotAvailable = -2056
  169. Global Const maxControllersExceeded = -2057
  170. Global Const unableToCreateMCWindow = -2058
  171. Global Const insufficientMemory = -2059
  172. Global Const invalidUserDataHandle = -2060
  173. Global Const noPictureInFile = -2061
  174. Global Const invalidPictureFileHandle = -2062
  175. Global Const invalidPictureHandle = -2063
  176. Global Const badDisplayContext = -2064
  177. Global Const noErr  = 0
  178. Global Const mcOK  = 0
  179. Global Const mcEventNotHandled  = 0
  180. Global Const mcEventHandled  = 1
  181. Global Const controllerBoundsNotExact = -9996
  182. Global Const editingNotAllowed = -9995
  183.  
  184.  
  185.  
  186. Rem  QTInitialize error codes
  187. Rem  ------------------------
  188.  
  189. Global Const QTI_OK = 0
  190. Global Const QTI_FAIL_NOEXIST = 1
  191. Global Const QTI_FAIL_CORRUPTDLL = 2
  192. Global Const QTI_FAIL_286 = 3
  193. Global Const QTI_FAIL_WIN30 = 4
  194.  
  195.  
  196.  
  197. Rem  OpenFile constants
  198. Rem  ------------------
  199.  
  200. Global Const OF_READ = &H0
  201. Global Const OF_WRITE = &H1
  202. Global Const OF_READWRITE = &H2
  203. Global Const OF_SHARE_COMPAT = &H0
  204. Global Const OF_SHARE_EXCLUSIVE = &H10
  205. Global Const OF_SHARE_DENY_WRITE = &H20
  206. Global Const OF_SHARE_DENY_READ = &H30
  207. Global Const OF_SHARE_DENY_NONE = &H40
  208. Global Const OF_PARSE = &H100
  209. Global Const OF_DELETE = &H200
  210. Global Const OF_VERIFY = &H400
  211. Global Const OF_SEARCH = &H400
  212. Global Const OF_CANCEL = &H800
  213. Global Const OF_CREATE = &H1000
  214. Global Const OF_PROMPT = &H2000
  215. Global Const OF_EXIST = &H4000
  216. Global Const OF_REOPEN = &H8000
  217.  
  218.  
  219.  
  220. Rem  Structures
  221. Rem  ----------
  222.  
  223. Type PointAPI
  224.     x As Integer
  225.     y As Integer
  226. End Type
  227.  
  228. Type Rect
  229.     left As Integer
  230.     top As Integer
  231.     right As Integer
  232.     bottom As Integer
  233. End Type
  234.  
  235. Type Int64
  236.     dwLo As Long
  237.     dwHi As Long
  238. End Type
  239.  
  240. Type OpenCPicParams
  241.     rcRect As Rect
  242.     hRes As Long
  243.     vRes As Long
  244.     wVersion As Integer
  245.     wReserved1 As Integer
  246.     dwReserved2 As Long
  247. End Type
  248.  
  249. Type TimeBaseRecord
  250.     p As Long
  251. End Type
  252.  
  253. Global Const TIMEBASE_DEFAULT = -1&
  254.  
  255. Type TimeRecord
  256.     trvalue As Int64
  257.     trscale As Long
  258.     trbase As Long
  259. End Type
  260.  
  261. Type SoundDescription
  262.     descSize As Long
  263.     dataFormat As Long
  264.     resvd1 As Long
  265.     resvd2 As Integer
  266.     dataRefIndex As Integer
  267.     version As Integer
  268.     revLevel As Integer
  269.     vendor As Long
  270.     numChannels As Integer
  271.     sampleSize As Integer
  272.     compressionID As Integer
  273.     packetSize As Integer
  274.     sampleRate As Long
  275. End Type
  276.  
  277. Type ImageDescription
  278.     idSize As Long
  279.     CodecType As Long
  280.     resvd1 As Long
  281.     resvd2 As Integer
  282.     dataRefIndex As Integer
  283.     version As Integer
  284.     revLevel As Integer
  285.     vendor As Long
  286.     temporalQuality As Long
  287.     spatialQuality As Long
  288.     idWidth As Integer
  289.     idHeight As Integer
  290.     hRes As Long
  291.     vRes As Long
  292.     dataSize As Long
  293.     frameCount As Integer
  294.     idName As String * 32
  295.     depth As Integer
  296.     clutID As Integer
  297. End Type
  298.  
  299.  
  300.  
  301. Rem  Note: the following functions cannot be called from Visual Basic because
  302. Rem  they operate through a callback function.  Visual Basic does not support
  303. Rem  the concept of a callback function.  They are included only for
  304. Rem  syntactic completeness, but should not be used.
  305. Rem  -----------------------------------------------------------------------
  306.  
  307. Declare Sub      VBSetMovieCoverProcs Lib "QTMovie.VBX" (ByVal mMovie As Long, ByVal UncoverProc As Long, ByVal CoverProc As Long, ByVal lRefCon As Long)
  308. Declare Function VBMCIsPlayerMessage Lib "QTMovie.VBX" (ByVal mcController As Long, ByVal hWnd As Integer, ByVal wMessage As Integer, ByVal wParam As Integer, ByVal lParam As Long) As Long
  309.  
  310.  
  311.  
  312. Rem  Sub and Function Declarations
  313. Rem  -----------------------------
  314.  
  315. Declare Sub      VBAddTime Lib "QTMovie.VBX" (lptrDst As TimeRecord, lptrSrc As TimeRecord)
  316. Declare Sub      VBClearMoviesStickyError Lib "QTMovie.VBX" ()
  317. Declare Function VBCloseMovieFile Lib "QTMovie.VBX" (ByVal mfMovie As Integer) As Long
  318. Declare Function VBClosePictureFile Lib "QTMovie.VBX" (ByVal pfPicture As Integer) As Long
  319. Declare Sub      VBConvertTimeScale Lib "QTMovie.VBX" (lptrInout As TimeRecord, ByVal tsNewScale As Long)
  320.  
  321. Declare Function VBCountUserDataType Lib "QTMovie.VBX" (ByVal udData As Integer, ByVal ostType As Long) As Long
  322. Declare Function VBDeleteMovieFile Lib "QTMovie.VBX" (ByVal lpstrFileSpec As String) As Long
  323. Declare Sub      VBDisposeMovie Lib "QTMovie.VBX" (ByVal mMovie As Long)
  324. Declare Sub      VBDisposeMovieController Lib "QTMovie.VBX" (ByVal mcController As Long)
  325. Declare Sub      VBDisposePicture Lib "QTMovie.VBX" (ByVal phPicture As Integer)
  326.  
  327. Declare Function VBDrawPicture Lib "QTMovie.VBX" (ByVal hDC As Integer, ByVal phThePict As Integer, lprcFrame As Rect, ByVal pprpProgressProc As Long) As Long
  328. Declare Function VBDrawPictureFile Lib "QTMovie.VBX" (ByVal hDC As Integer, ByVal pfPicture As Integer, lprcFrame As Rect, ByVal pprpProgressProc As Long) As Long
  329. Declare Function VBEnterMovies Lib "QTMovie.VBX" () As Long
  330. Declare Sub      VBExitMovies Lib "QTMovie.VBX" ()
  331. Declare Function VBGetMovieActive Lib "QTMovie.VBX" (ByVal mMovie As Long) As Integer
  332.  
  333. Declare Sub      VBGetMovieActiveSegment Lib "QTMovie.VBX" (ByVal mMovie As Long, tvStart As Long, tvDuration As Long)
  334. Declare Sub      VBGetMovieBox Lib "QTMovie.VBX" (ByVal mMovie As Long, lprcMovieRect As Rect)
  335. Declare Function VBGetMovieCreationTime Lib "QTMovie.VBX" (ByVal mMovie As Long) As Long
  336. Declare Function VBGetMovieDataSize Lib "QTMovie.VBX" (ByVal mMovie As Long, ByVal tvStart As Long, ByVal tvDuration As Long) As Long
  337. Declare Function VBGetMovieDuration Lib "QTMovie.VBX" (ByVal mMovie As Long) As Long
  338.  
  339. Declare Function VBGetMovieModificationTime Lib "QTMovie.VBX" (ByVal mMovie As Long) As Long
  340. Declare Function VBGetMoviePict Lib "QTMovie.VBX" (ByVal mMovie As Long, ByVal tvTime As Long) As Integer
  341. Declare Function VBGetMoviePosterPict Lib "QTMovie.VBX" (ByVal mMovie As Long) As Integer
  342. Declare Function VBGetMoviePosterTime Lib "QTMovie.VBX" (ByVal mMovie As Long) As Long
  343. Declare Function VBGetMoviePreferredRate Lib "QTMovie.VBX" (ByVal mMovie As Long) As Long
  344.  
  345. Declare Function VBGetMoviePreferredVolume Lib "QTMovie.VBX" (ByVal mMovie As Long) As Integer
  346. Declare Function VBGetMoviesError Lib "QTMovie.VBX" () As Long
  347. Declare Function VBGetMoviesStickyError Lib "QTMovie.VBX" () As Long
  348. Declare Function VBGetMovieStatus Lib "QTMovie.VBX" (ByVal mMovie As Long, ByVal lpvReserved As Long) As Long
  349. Declare Function VBGetMovieTime Lib "QTMovie.VBX" (ByVal mMovie As Long, trRecord As TimeRecord) As Long
  350.  
  351. Declare Function VBGetMovieTimeScale Lib "QTMovie.VBX" (ByVal mMovie As Long) As Long
  352. Declare Function VBGetMovieUserData Lib "QTMovie.VBX" (ByVal mMovie As Long) As Integer
  353. Declare Function VBGetNextUserDataType Lib "QTMovie.VBX" (ByVal udData As Integer, ByVal ostType As Long) As Long
  354. Declare Function VBGetPictureFileHeader Lib "QTMovie.VBX" (ByVal pfPicture As Integer, lprcFrame As Rect, lpocppHeader As OpenCPicParams) As Long
  355. Declare Function VBGetPictureFileInfo Lib "QTMovie.VBX" (ByVal pfPicture As Integer, idImageInfo As ImageDescription) As Long
  356.  
  357. Declare Function VBGetPictureFromFile Lib "QTMovie.VBX" (ByVal pfPicture As Integer) As Integer
  358. Declare Function VBGetPictureInfo Lib "QTMovie.VBX" (ByVal phThePict As Integer, idImageInfo As ImageDescription) As Long
  359. Declare Function VBGetPicturePalette Lib "QTMovie.VBX" (ByVal phThePict As Integer) As Integer
  360. Declare Function VBGetSoundInfo Lib "QTMovie.VBX" (ByVal mMovie As Long, sdSoundInfo As SoundDescription) As Long
  361. Declare Function VBGetUserData Lib "QTMovie.VBX" (ByVal udData As Integer, lphData As Integer, ByVal ostType As Long, ByVal lIndex As Long, lplSize As Long) As Long
  362.  
  363. Declare Function VBGetUserDataText Lib "QTMovie.VBX" (ByVal udData As Integer, lphData as Integer, ByVal ostType As Long, ByVal lIndex As Long, ByVal uRegionTag as Integer, lplSize As Long) As Long
  364. Declare Function VBGetVideoInfo Lib "QTMovie.VBX" (ByVal mMovie As Long, idVideoInfo As ImageDescription) As Long
  365. Declare Sub      VBKillPicture Lib "QTMovie.VBX" (ByVal phPicture As Integer)
  366. Declare Function VBMCActivate Lib "QTMovie.VBX" (ByVal mcController As Long, ByVal hWnd As Integer, ByVal bActivate As Integer) As Long
  367. Declare Function VBMCDoAction Lib "QTMovie.VBX" (ByVal mcController As Long, ByVal uAction As Integer, lpvParams As Long) As Long
  368.  
  369. Declare Function VBMCDraw Lib "QTMovie.VBX" (ByVal mcController As Long, ByVal hWnd As Integer) As Long
  370. Declare Function VBMCDrawBadge Lib "QTMovie.VBX" (ByVal mcController As Long, ByVal hrgnMovieRgn As Integer, lphrgnBadgeRgn As Integer) As Long
  371. Declare Function VBMCGetControllerBoundsRect Lib "QTMovie.VBX" (ByVal mcController As Long, lprcBounds As Rect) As Long
  372. Declare Function VBMCGetControllerInfo Lib "QTMovie.VBX" (ByVal mcController As Long, lplMcInfoFlags As Long) As Long
  373. Declare Function VBMCGetCurrentTime Lib "QTMovie.VBX" (ByVal mcController As Long, tsScale As Long) As Long
  374.  
  375. Declare Function VBMCGetMovie Lib "QTMovie.VBX" (ByVal mcController As Long) As Long
  376. Declare Function VBMCGetVisible Lib "QTMovie.VBX" (ByVal mcController As Long) As Long
  377. Declare Function VBMCIdle Lib "QTMovie.VBX" (ByVal mcController As Long) As Long
  378. Declare Function VBMCIsControllerAttached Lib "QTMovie.VBX" (ByVal mcController As Long) As Long
  379. Declare Function VBMCKey Lib "QTMovie.VBX" (ByVal mcController As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
  380.  
  381. Declare Function VBMCNewAttachedController Lib "QTMovie.VBX" (ByVal mcController As Long, ByVal mMovie As Long, ByVal hWnd As Integer, ptUpperLeft As PointAPI) As Long
  382. Declare Function VBMCPositionController Lib "QTMovie.VBX" (ByVal mcController As Long, lprcMovieRect As Rect, lprcControllerRect As Rect, ByVal lControllerCreationFlags As Long) As Long
  383. Declare Function VBMCRemoveMovie Lib "QTMovie.VBX" (ByVal mcController As Long) As Long
  384. Declare Function VBMCSetActionFilter Lib "QTMovie.VBX" (ByVal mcController As Long, ByVal lpfnFilter As Long, ByVal lRefCon As Long) As Long
  385. Declare Function VBMCSetControllerAttached Lib "QTMovie.VBX" (ByVal mcController As Long, ByVal bAttach As Integer) As Long
  386.  
  387. Declare Function VBMCSetControllerBoundsRect Lib "QTMovie.VBX" (ByVal mcController As Long, lprcBounds As Rect) As Long
  388. Declare Function VBMCSetMovie Lib "QTMovie.VBX" (ByVal mcController As Long, ByVal mMovie As Long, ByVal hWndMovieWindow As Integer, ptUpperLeft As PointAPI) As Long
  389. Declare Function VBMCSetVisible Lib "QTMovie.VBX" (ByVal mcController As Long, ByVal bShow As Integer) As Long
  390. Declare Function VBNewMovieController Lib "QTMovie.VBX" (ByVal mMovie As Long, lprcMovieRect As Rect, ByVal lControllerCreationFlags As Long, ByVal hWndParent As Integer) As Long
  391. Declare Function VBNewMovieFromDataFork Lib "QTMovie.VBX" (fpmMovie As Long, ByVal hFile As Integer, ByVal lOffset As Long, ByVal uiNewMovieFlags As Integer) As Long
  392.  
  393. Declare Function VBNewMovieFromFile Lib "QTMovie.VBX" (fpmMovie As Long, ByVal mfMovie As Integer, lpsResID As Integer, lpstrResName As Any, ByVal uiNewMovieFlags As Integer, lpbDataRefWasChanged As Integer) As Long
  394. Declare Sub      VBNormalizeRect Lib "QTMovie.VBX" (lprcRect As Rect)
  395. Declare Function VBOpenMovieFile Lib "QTMovie.VBX" (ByVal lpstrFileSpec As String, MovieFile As Integer, ByVal sOFlag As Integer) As Long
  396. Declare Function VBOpenPictureFile Lib "QTMovie.VBX" (ByVal lpstrFileSpec As String, pfPicture As Integer, ByVal sOFlag As Integer) As Long
  397. Declare Function VBPictureToDIB Lib "QTMovie.VBX" (ByVal pcThePict As Integer) As Integer
  398.  
  399. Declare Function VBPrerollMovie Lib "QTMovie.VBX" (ByVal mMovie As Long, ByVal tvTime As Long, ByVal lfxRate As Long) As Long
  400. Declare Function VBPtInMovie Lib "QTMovie.VBX" (ByVal mMovie As Long, ptPoint As PointAPI) As Integer
  401. Declare Function VBQTInitialize Lib "QTMovie.VBX" (lplVersion As Long) As Long
  402. Declare Sub      VBQTTerminate Lib "QTMovie.VBX" ()
  403. Declare Sub      VBSetMovieActive Lib "QTMovie.VBX" (ByVal mMovie As Long, ByVal bActive As Integer)
  404.  
  405. Declare Sub      VBSubtractTime Lib "QTMovie.VBX" (lptrDst As TimeRecord, lptrSrc As TimeRecord)
  406. Declare Function VBUpdateMovie Lib "QTMovie.VBX" (ByVal mMovie As Long) As Long
  407.